home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dialog / dialogs / dialogs.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-07-04  |  8.6 KB  |  206 lines
  1. Form1
  2. Common Dialogs Made in VB
  3. wwwwwwwwwwwwww
  4. wwwwwwwwwwwwww
  5. wwwwwwwwwwwwww
  6. wwwwwwwwwwwwww
  7. wwwwwwwwwwwwww
  8. wwwwwwwwwwwwww
  9. wwwwwwwwwwwwww
  10. wwwpww
  11. wwwwp
  12. wwwwwwww
  13. wwwwwwwwwwwwww
  14. wwwwwwwwwwwwww
  15. wwwwwwwwwwwwww
  16. wwwwwwwwwwwwww
  17. Form1,
  18. mnuDemo
  19. &Demo
  20. mnuFOpen
  21. File &Open
  22. mnuFSave
  23. File &Save
  24. mnuFonts
  25. &Fonts
  26. mnuPrinter
  27. &Printer
  28. _    mnuPSetup
  29. Printer Setup
  30. mnuPDoc
  31. Print Doc Setup
  32. a    mnuColors
  33. &Colors
  34. mnuSep
  35. mnuExit
  36. E&xit
  37. mnuFonts_Click
  38. OldFont
  39. Form1
  40. FontName
  41. OldFontSize(
  42. FontSizei
  43. OldFontWeight
  44. FontBold
  45. OldFontItalic^
  46. FontItalict
  47. OldFontStrikethru5
  48. FontStrikethrud
  49. OldFontUnderline
  50. FontUnderline{
  51. OldForeColor
  52.     ForeColor{
  53. ChooseFont
  54. LogFont
  55. Address
  56.     MemHandle
  57. GlobalAlloc
  58. GHNDF
  59. GlobalLock
  60. lStructSize
  61.     hwndOwner
  62. Flags
  63. CF_SCREENFONTS
  64. CF_EFFECTSd
  65.     nfonttype
  66. SCREEN_FONTTYPE
  67.     lpLogFont#
  68. Resultf
  69. hmemcpyB
  70. GlobalUnlock
  71. GlobalFree
  72. FntSize
  73. lfHeightn
  74. GetDeviceCaps
  75. LOGPIXELSY
  76. lfFaceName
  77. lfWeight
  78. lfItalic    
  79. lfStrikeOutQ
  80. lfUnderline
  81.     rgbColors
  82. @    Form_Load(
  83. Height
  84. Screen7
  85. Width
  86. mnuPSetup_Click
  87. PrinterDlgG
  88. DevMode
  89. PD_PRINTSETUP
  90. PrintDlg
  91. DeleteDC
  92.     hDevNamesL
  93. hDevMode
  94. dmDeviceNameK
  95. dmOrientation
  96. mnuPDoc_Click
  97. PD_RETURNIC
  98.     nFromPage
  99. nToPage
  100. nMinPage0
  101. nMaxPage
  102. nCopies
  103. mnuColors_Click
  104. ChooseColor
  105. ClrArraya
  106. wSize
  107. lpCustColors
  108.     RgbResult
  109.     BackColor
  110. CC_RGBINIT<
  111. CC_FULLOPEN
  112. mnuFOpen_Click
  113. OPENFILENAME
  114. szFile
  115. szFilter
  116. OFN_FILEMUSTEXIST
  117. OFN_HIDEREADONLY
  118. OFN_PATHMUSTEXIST
  119. nFilterIndex
  120.     lpstrFileu
  121. nMaxFile
  122. lpstrFilter
  123. GetOpenFileName
  124. nFileOffset
  125. nFileExtension
  126. mnuFSave_Click
  127. NoTitle
  128. GetSaveFileName
  129. mnuExit_Click
  130. mnuDemo_Click
  131. mnuPrinter_Click
  132.  Demo for accessing Win 3.1 Common Dialogs
  133.  Author: Costas Kitsos, CIS 73667,1755
  134.  Revision: 1.00.00, July 4 1992 
  135. mnuFonts_Click
  136.  Save the defaults
  137.  We need to use GlobalAlloc to provide lpLogFont which is a*
  138.  pointer to a LogFont structurep
  139.  make a local copy of the LogFont structureg
  140. Free The Memory
  141. calculate the font size in points 
  142. Font: s
  143. Height:"s
  144. Weight: s
  145. Italic: s
  146. select the new font
  147. print something
  148. restore the defaults
  149. Form_Load
  150. mnuPSetup_Click
  151. PrintDlg() returns an hDC, a global handle to hDevNames
  152. and another to hDevMode.  Delete the ones we don't need
  153. Make a local copy of the global block (hDevMode)
  154. free the memoryl
  155. Printer:s
  156. Orientation:s
  157. mnuPDoc_Click
  158. This is similar to Printer Setup
  159. Printer:s
  160. From Page:s
  161. To Page:s
  162. Copies:"s
  163. mnuColors_Click
  164.  Holds Custom Colors
  165.  Size of Memory Block
  166. A global block is allocated to hold a copy of the
  167. custom colorsk
  168.  Fill Custom Colors with White
  169. copy custom colors to the global block
  170. get ready to call ChooseColorb
  171.  copy the new custom colors locallyo
  172. Free The Memoryo
  173. select the new color for the background
  174. comment this out if it's distracting
  175.  print the new custom colors
  176. Custom Colort
  177. mnuFOpen_Click
  178. First Copy the strings to the Global Memory Block
  179. use a sub-allocation scheme to avoid overloading the LDT
  180. VB Files
  181. *.frm;*.bas;*.mak"
  182. Text Files
  183. *.txt;*.doc"
  184. Free The Memory
  185. Common Dialogs File Openu
  186. You selected: s
  187. Path:"s
  188. Filename:"s
  189. Extension:s
  190. mnuFSave_Click
  191.  This is similar to GetOpenFileName
  192. First Copy the strings to the Global Memory Block
  193. use a sub-allocation scheme to avoid wearing down the LDT
  194. untitled.frm
  195. VB Files
  196. *.frm;*.bas;*.mak"
  197. Text Files
  198. *.txt;*.doc"
  199. Free The Memory
  200. Common Dialogs File Saveu
  201. You selected: s
  202. Path:"s
  203. Filename:"s
  204. Extension:s
  205. mnuExit_Click
  206.